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— StreamDefs.Mesa Edited by Sandman on August 23, 1977 9:22 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledefs" , 
SegmentDefs: FROM "segmentdef s'\ 
RectangleDefs: FROM "rectangledefs" ; 

StreamDefs: DEFINITIONS = BEGIN 

KeyBufChars: PRIVATE INTEGER « 80; 
KeyBufWords: PRIVATE INTEGER = 

( KeyBuf Char s+AltoDefs. Chars PerWord~l)/AltoDefs.CharsPerWord; 

StreamHandle: TYPE = POINTER TO StreamObject ; 
KeyboardHandle: TYPE = POINTER TO Keyboard StreamObject; 
DisplayHandle: TYPE = POINTER TO Display StreamObject; 
DiskHandle: TYPE = POINTER TO Disk StreamObject; 
OtherStreamHandle: TYPE = POINTER TO Other StreamObject; 

StreamObject: TYPE = RECORD [ 
reset: PROCEDURE [StreamHandle], 

get: PROCEDURE [StreamHandle] RETURNS [UNSPECIFIED], 
putback: PROCEDURE [StreamHandle, UNSPECIFIED], 
put: PROCEDURE [StreamHandle, UNSPECIFIED], 
endof: PROCEDURE [StreamHandle] RETURNS [BOOLEAN], 
destroy: PROCEDURE [StreamHandle], 
body: PRIVATE SELECT type: PU8LIC * FROM 
Keyboard s > [ 

in, out: CARDINAL, 

buffer: STRING, 

bstring: ARRAY [0 . . KeyBufWords+2) OF WORD], 
Display => [ 

link: PUBLIC DisplayHandle, 

pfont: PUBLIC RectangleDefs . FAptr , 

rectangle: PUBLIC RectangleDefs .Rptr , 

options: PUBLIC DSOptions, 

charx: RectangleDefs .xCoord, 

chary: RectangleDefs .yCoord, 

lineheight: PUBLIC CARDINAL, 

line: PUBLIC CARDINAL, 

TABindex: [0..9], 

TABs: ARRAY [0..9] OF CARDINAL], 
Disk => [ 

-- fast stream stuff 

eof, dirty: BOOLEAN, 

unit: [1..2], 

byte: [0..1], 

word: POINTER, 

count, size: CARDINAL, 

getOverflow: PROCEDURE [StreamHandle], 

savedGet: PROCEDURE [StreamHandle] RETURNS [UNSPECIFIED], 

putOverMow: PROCEDURE [StreamHandle], 

savedPut: PROCEDURE [StreamHandle, UNSPECIFIED], 

-- disk stream stuff 

file: PUBLIC SegmentDefs . F i 1 eHandle , 

read, write, append: PUBLIC BOOLEAN, 

page: Al toDef s . PageNumber , 

char: CARDINAL, 

buffer: POINTER, 

das: ARRAY (last, current, next} OF Al toFi leDef s . vDA] , 
Other => [data: POINTER], 
CNDCASE]; 

StreamError: SIGNAL [stream: StreamHandle , error : StreamErrorCode] ; 

StreamrrrorCode: TYPE = { 

StreamType, StreamAccess , S treamOperat ion , 
StreamPosi tion , StreamCnd, StreamBug}: 



-- extensions applicable to keyboard streams 

CreateKeyStream: PROCrDURT RETURNS [KeyboardHandle]; 
GetDefauUKey , GetCurren tKey : PROCTDURT RfTURNS [KeyboardHandle]; 
OpenKeyStream, CI oseKeyS tream : PROCEDURF [s Lream: S LreamHand 1 e] ; 
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CursorTrack: PROCEDURE [BOOLEAN]; 
ControlDELtyped: PROCEDURE RETURNS [BOOLEAN]; 
ResetControlDEL: PROCEDURE; 
SetldleProc: PROCEDURE [PROCEDURE]; 
ResetldleProc: PROCEDURE; 

— extensions applicable to display streams 

-- Display Stream options field definitions 

DSOptions: TYPE = RECORD [ — Di spl ayStream options 
StopRight: BOOLEAN, -- discard rather than wrap line 
StopBottom: BOOLEAN, -- discard rather than scroll 
NoteLineBreak: BOOLEAN, -- SIGNAL on line breaks 
NoteScrolling: BOOLEAN]; — SIGNAL on Scroll 

GetDefaultDisplayStream: PROCEDURE RETURNS [DisplayHandle]; 

GetDisplayStreamList: PROCEDURE RETURNS [DisplayHandle]; 

ClearCurrentLine: PROCEDURE [stream : S treamHandle] ; 

ClearDisplayLine: PROCEDURE [stream: St reamHandle, 1 ine: CARDINAL]; 

ClearDisplayChar: PROCEDURE [stream:StreamHandle, char :CHARACTER] ; 

CreateDisplayStream: PROCEDURE [rectangle:RectangleDef s .Rptr] RETURNS [DisplayHandle]; 

-- display stream procedures used by Window stuff 

ScrollDisplay: PROCEDURE [ds .-DisplayHandle, char .-CHARACTER] ; 
SetDisplayLine: PROCEDURE [ds :Displ ayHandle, line, pos :CARDINAL] ; 
WriteDisplayChar: PROCEDURE [stream:StreamHandle, char :CHARACTER]; 

-- extensions applicable to disk streams 

Streamlndex: TYPE = RECORD [ 
page: AltoDefs. PageNumber, 
byte: CARDINAL]; 

AccessOptions : T YPE - SegmentDef s . AccessOptions ; 
Read: AccessOptions - SegmentDef s .Read; 
Write: AccessOptions = SegmentDef s .Write; 
Append: AccessOptions = SegmentDef s .Append; 
-- Delete: AccessOptions = SegmentDef s .Delete; 

Def aul tAccess : AccessOptions = SegmentDefs.Def aultAccess; 

NewByteStream, NewWordStream: PROCEDURE [name: STRING, access: AccessOptions] 

RETURNS [DiskHandle]; 
CreateByteStream, CreateWordStream: PROCEDURE [ 

file: SegmentDef s . Fi leHandle , access: Segmen tDefs .AccessOptions] 

RETURNS [DiskHandle]; 
OpenDiskStream, CI oseDi skStream: PROCEDURE [stream: S treamHandl e] ; 
CleanupDiskStream, TruncateDi skStream: PROCEDURE [stream: StreamHandle] ; 
FileLength: PROCEDURE [stream: StreamHandle] RETURNS [Streamlndex]; 
GetFA: PROCEDURE [stream:StreamHandle , fa:POINTER TO Al toFi 1 eDef s . FA] ; 
JumpToFA: PROCEDURE [stream: StreamHandl e , fa:POINTER TO Al toFi leDef s . FA] ; 
ReadBlock, WriteBlock: PROCEDURE [stream:StreamHandl e , address : POINTER , words :CARDINAL] 

RETURNS [CARDINAL]; 

-- Streamlndex Stuff 

Getlndex: PROCCDURF [stream: StreamHandle] RETURNS [Streamlndex]; 

Setlndex: PROCEDURE [stream: StreamHandle, index: Streamlndex]; 

Normal izelndex: PROCEDURE [index: Streamlndex] RETURNS [Streamlndex]; 

Modifylndex: PROCEDURE [index: Streamlndex, change: INTTGFR] RFTURNS [Streamlndex]; 

Fquallndex: PUB! IC PROCEDURE [it, 12: Streamlndex] Rf TURNS[BOOI CAN] ; 

GrEquallndex: PUBLIC PROCEDURC [il, i2: Streamlndex] RTTURNS[BOOLEAN] ; 

Grlndex: PUBLIC PROCEDURE [il, i2: Streamlndex] RETURNS[BOOl EAN] ; 

END. 



